home *** CD-ROM | disk | FTP | other *** search
/ Aminet 13 / Aminet 13 - August 1996.iso / Aminet / mus / edit / SYMPH24d.lha / Symphonie / DSPlugIn / DSPPlugIn Test.S < prev    next >
Text File  |  1994-08-27  |  3KB  |  154 lines
  1.     MC68020
  2.  
  3. SST_SYS_GetMem            EQU    0
  4. SST_SYS_FreeMem            EQU    4
  5.  
  6. SST_FILE_RequestFileName    EQU    100
  7. SST_FILE_SetReqPattern        EQU    104
  8. SST_FILE_SetReqDir        EQU    108
  9. SST_FILE_GetFileName        EQU    112
  10. SST_FILE_GetFileLen        EQU    116
  11.  
  12. SST_GFX_AssistText        EQU    200
  13. SST_GFX_AssistDecLong        EQU    204
  14. SST_GFX_AssistDecByte        EQU    208
  15. SST_GFX_AssistHexLong        EQU    212
  16.  
  17. SST_AUDIO_GetChunkLen        EQU    400
  18.  
  19. SST_PTR_EXECBASE        EQU    1600
  20. SST_PTR_INTBASE            EQU    1604
  21. SST_PTR_DOSBASE            EQU    1608
  22. SST_PTR_ASLBASE            EQU    1612
  23. SST_PTR_REQTOOLSBASE        EQU    1616
  24. SST_PTR_GFXBASE            EQU    1620
  25.  
  26. SST_PTR_Screen            EQU    1650
  27.  
  28. SST_ADR_ProcessorFlags        EQU    1800
  29. SST_ADR_SystemFrequency        EQU    1804
  30. SST_ADR_SystemBpm        EQU    1808
  31. SST_ADR_ChunkLen        EQU    1812
  32. SST_ADR_OversampleFlag        EQU    1816
  33. SST_ADR_MaxAmplitude        EQU    1820    ;$7fff in SymPRO
  34. SST_ADR_BitPerSample        EQU    1824    ;16 for 16 Bit Stream
  35.  
  36.  
  37.     dc.b    "Symphonie DSP Plugin"    ;MAGIC String    (PRIVATE)
  38.     dc.w    1,0            ;Version,Release (PRIVATE,DO NOT CHANGE)
  39.  
  40.     ;- DSPLIB -------------------------------------------------
  41.  
  42.     jmp    InitDSP(PC)        ;Allocate Mem, Build your Tables
  43.     jmp    CleanUpDSP(PC)        ;Free Mem
  44.  
  45.     jmp    ProcDsp(PC)        ;Process DSP algorithm (interrupt)
  46.  
  47.     jmp    GetDspTitle(PC)        ;Get DSP algorithm Title
  48.     jmp    ModifyValue(PC)        ;notify changed Value
  49.  
  50.     jmp    GraphSizeModify(PC)    ;notify graph size has changed
  51.     jmp    RefreshGraph(PC)    ;notify its time for a GFX update
  52.  
  53.     jmp    StartDSP(PC)        ;notify start
  54.     jmp    StopDSP(PC)        ;notify stop
  55.     dc.l    -1
  56.  
  57.     ;- CODE --------------------------------------------------
  58.  
  59.  
  60. StartDSP
  61.     rts
  62.  
  63. StopDSP
  64.     rts
  65.  
  66. GraphSizeModify
  67.     rts
  68.  
  69. RefreshGraph
  70.     move.l    SUPERSTBASE(PC),a6
  71.     move.l    SST_ADR_SystemFrequency(a6),d0
  72.     move.l    SST_ADR_SystemFrequency(a6),d0
  73.     move.l    #SST_GFX_AssistDecLong,d7
  74.     bsr    GoSST
  75.  
  76.     move.l    SST_ADR_SystemBpm(a6),d0
  77.     bsr    GoSST
  78.  
  79.     move.l    SST_ADR_ChunkLen(a6),d0
  80.     bsr    GoSST
  81.  
  82.     move.w    test(PC),d0
  83.     bsr    GoSST
  84.  
  85.     rts
  86.  
  87. ModifyValue    ;INPUT (D0L,D1L)(VALUE, PARAMETER ID)
  88.     rts
  89.  
  90. GoSST
  91.     move.l    a6,-(sp)
  92.     move.l    SUPERSTBASE(PC),a6
  93.     move.l    (a6,d7.w),a6
  94.     jsr    (a6)
  95.     move.l    (sp)+,a6
  96.     rts
  97.  
  98.  
  99. InitDSP        ;INPUT (A0L)(SUPERSUPPORTTABLE_PTR)
  100.         ;OUTPUT (A0L)(PARAMETER GUI DEF_PTR)
  101.     lea.l    SUPERSTBASE(PC),a1
  102.     move.l    a0,(a1)
  103.  
  104.     lea.l    Welcome_TXT(PC),a0
  105.     move.l    #SST_GFX_AssistText,d7
  106.     bsr    GoSST
  107.  
  108.  
  109.  
  110.  
  111.     lea.l    Parameter_DEF(PC),a0
  112.     rts
  113.  
  114. CleanUpDSP    rts
  115.  
  116. GetDspTitle    ;OUTPUT (A0L)(DSPTitle_TXT)
  117.     lea.l    DSPTitle(PC),a0
  118.     rts
  119.  
  120. ProcDsp        ;INPUT (D0W,A1L)(SAMPLE_NUMB,SAMPLECHUNK_PTR)
  121.     movem.l    d0-a6,-(sp)
  122.  
  123.     lea.l    test(PC),a2
  124.     move.w    d0,(a2)
  125.  
  126.     movem.l    (sp)+,d0-a6
  127.     rts
  128.  
  129.     ;- GUI ------------------------------------------------------
  130.  
  131.     even
  132. Parameter_DEF
  133.     dc.b    "Testit",0    ;PARAMETER TITLE    (String)
  134.     dc.l    5,0,10
  135.  
  136.     dc.b    "Test 2",0    ;PARAMETER TITLE    (String)
  137.     dc.l    50,0,100
  138.  
  139.  
  140.  
  141.     dc.b    0        ;END OF GUI DEF
  142.  
  143.     ;- TITLE ----------------------------------------------------
  144.  
  145.  
  146.         dc.b    "$VER: "
  147. DSPTitle    dc.b    "Test Dsp Plugin v1.0",0
  148. Welcome_TXT    dc.b    "Welcome to DSP test",0
  149.  
  150.         even
  151. SUPERSTBASE    dc.l    0
  152. test        dc.l    0
  153.     END
  154.